home *** CD-ROM | disk | FTP | other *** search
/ Cream of the Crop 1 / Cream of the Crop 1.iso / PROGRAM / WAVEPOOL.ARJ / EXP.WPL < prev    next >
Text File  |  1992-04-08  |  475b  |  29 lines
  1.  
  2. #
  3. #       EXP Wavepool program
  4. #
  5. #       Copyright 1992, Data Assist, Inc.
  6. #
  7.  
  8. BEGIN {
  9.     screate("exp.sou")
  10.  
  11.     for (x=500; x<=800; ++x) {
  12.         hertz = exp(x/100);
  13.         print hertz;
  14.         sinwave(hertz, x/10);
  15.         quiet(1);
  16.     }
  17.     for (x=800; x>=100; --x) {
  18.         hertz = exp(x/100);
  19.         print hertz;
  20.         sinwave(hertz, x/10);
  21.         quiet(1);
  22.     }
  23.     quiet(10);
  24.     sclose(0);
  25.     sndvoc("exp.sou", "exp.voc");
  26. }
  27.  
  28.  
  29.